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ABSTRACT: Smarandache Distinct Reciprocal partition of unity for a given length 
‘nm’ is defined as the number of ways in which unity can be expressed as the sum of 
the reciprocals of ‘n‘ distinct numbers. In this note a program in ‘C’ is given. 

/! This is a program for finding number of distinct reciprocal partitions of unity of a 
given length written by K Suresh, Software expert, IKOS , NOIDA , INDIA. 


#include<stdio.h> 
#include<math.h> 
unsigned long TOTAL; 


FILE? f; 
long double array[100]; 
unsigned long count = 0; 


void try(long double prod, long double sum, unsigned long pos) 
{ 


if{ pos == TOTAL - 1 ) 

{ 
// last element.. 
long double diff = prod - sum; 
if diff = 0 ) return; 


array[pos] = floorl(prod / diff); 
if{ array[pos] > array[pos-1] && array[pos] * diff = prod ) 


fprintf(£, "(%ld) %ld", ++count,(unsigned long)array[0]); 

int i; 

for(i = 1; i< TOTAL; i++) fprintf(f", %ld", (unsigned long)array[i]); 
fprintf(f, "\n"); 

fflush(f); 
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} 


} 
return; 


} 
long double i; 
if{ pos == 0) 


i = array[pos-1]; | 


while(1) { 
ter; 
long double new_prod = prod * pow(i, TOTAL-pos); 
long-double new_sum = (TOTAL-pos) * (new_prod / i); 
unsigned long j; 
for(j = 0; j < pos; j++) new_sum += new_prod / array/j]; 
if{ new_sum < new_prod ) 

break; | 


new_prod = prod * i; 

array[pos] = i; 

new_sum = prod + sum * i; 

if{ new_sum >= new_prod ) continue; 


try(new_prod, new_sum, pos+1); 
} 


return; 


main() 


{ 


printf("Enter no of elements 2"); 

scanf("%old", & TOTAL); 

char fname[256]; 

sprintf(fhame, "rec%ld.out", TOTAL); 

f= fopen(fname, "w"); 

fprintf(f, "No of elements = %ld.\n", TOTAL); 


try(1, 0, 0); 

fflush(£); 

fclose(f); 

printf("Total %ld solutions found.\n", count); 
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return 0; 
} 


Based on the above program the following table is formed. 
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